home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / OVERPROG.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  60 lines
  1.                                          (* Chapter 7 - Program 1 *)
  2. MODULE OverProg;    (* Overall program construction example *)
  3.  
  4. FROM InOut IMPORT WriteString, WriteLn;
  5.  
  6.      PROCEDURE Proc1;
  7.      BEGIN
  8.        WriteString("Procedure 1");
  9.        WriteLn;
  10.      END Proc1;
  11.  
  12.      PROCEDURE Proc2;
  13.           PROCEDURE Proc3;
  14.           BEGIN
  15.             WriteString("Procedure 3");
  16.             WriteLn;
  17.           END Proc3;
  18.  
  19.           PROCEDURE Proc4;
  20.                PROCEDURE Proc5;
  21.                BEGIN
  22.                  WriteString("Procedure 5");
  23.                  WriteLn;
  24.                END Proc5;
  25.           BEGIN
  26.             WriteString("Procedure 4");
  27.             WriteLn;
  28.             Proc5;
  29.             Proc3;
  30.           END Proc4;
  31.      BEGIN
  32.        WriteString("Procedure 2");
  33.        WriteLn;
  34.        Proc3;
  35.        Proc4;
  36.      END Proc2;
  37.  
  38. BEGIN
  39.   WriteString("Main Program");
  40.   WriteLn;
  41.   Proc2;
  42.   Proc1;
  43. END OverProg.
  44.  
  45.  
  46.  
  47.  
  48. (* Result of execution
  49.  
  50. Main Program
  51. Procedure 2
  52. Procedure 3
  53. Procedure 4
  54. Procedure 5
  55. Procedure 3
  56. Procedure 1
  57.  
  58. *)
  59.  
  60.